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-REM @ 


IDENTIFICATION 


PRODUCT CODE: AC-8588B-MC 
PRODUCT NAME: CZDPEBO DUP11 CONFIDENCE TST 
DATE: JANUARY 1979 
MAINTAINER: DIAGNOSTICS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT <C) 1974, 1979 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 
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ABSTRACT 


THE FUNCTION OF THE PROGRAM IS TO PROVIDE A LEVEL OF 
CONFIDENCE IN THE OPERATION OF THE DUP=11 WITHOUT CHANGING 
JUMPERS OR SWITCHES FROM CUSTOMER CONFIGURATION. 


THE OPTION IS TESTED IN SDLC MODE (BIT-STUFFING), THEN IN DEC 
MODE USING A SIMULATED DDCMP=LINE PROTOCOL WITH AN IMBEDDED 
CRC CHARACTER. BOTH OF THESE MODES WILL BE TESTED OVER A 
CABLE IF A TURNAROUND IS POSSIBLE. 


THE MODEM CONTROL LEADS WILL ALSO BE aaa IF THE H325 TURN- 
AROUND CONNECTOR IS USED. THE DETERMINATION OF WHAT WILL BE 
TESTED IS DONE BY ANSWERING A ‘PARAMETER DIALOG'' (LOAD ADDRESS 
00, START ADDRESS 0 OR 1.) ALL QUESTIONS MUST BE ANSWERED. 

IF AN ERROR SHOULD OCCUR, A_ TYPEOUT WILL EXPLAIN _ THE 
FUNCTIONAL. AREA OF THE DEVICE WHICH FAILED. TO REPAIR THE 
OPTION, THE DIAGNOSTICS WILL HAVE TO BE RUN. 


ADDITIONALLY THE MODEM DATA LEADS MAY NOW BE TESTED IF A MO- 
DEM HAS THE ANALOG LOOPBACK FEATURE ENABLED. 


CURRENTLY THERE ARE THREE OFF-LINE DIAGNOSTICS THAT ARE TO BE 
RUN IN SEQUENCE TO ENSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE AND ESTABLISH THAT 
ty OF THE ERROR WILL BE IMMEDIATE TO DISCOVERING THE 


NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 

THE THREE DIAGNOSTICS ARE: 

1.1 CZDPB CREV] BASIC AND OFFLINE TRANSMITTER TESTS. 

1.2 CZDPC CREV] OFFLINE RECEIVER TESTS, MODEM CONTROL AND 
INTERRUPT TESTS 

1.3 CZDPD £REV] OFFLINE SDLC DATA AND FUNCTION OFFLINE DECMODE 
DATA AND FUNCTION T 

1.4 CZDPO CREV] DP11 OVERLAY FOR INTERPROCESSOR TEST PROGRAM 

NOTE: THE FOURTH TAPE IS: 

1.5  CZDPE CREV] THIS CONFIDENCE TEST. 

* «NOTE ** 
CZDPE WILL ONLY TEST ONE DUP11 AT A TIME, IF TESTING 


OF ANOTHER DUP11 IS DESIRED, RESTART AT 200 AND ENTER 
NEW PARAMETERS. 


SEQ 0003 
SEQ 0002 
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2.0 REQUIREMENTS 
2.1 EQUIPMENT 


ANY PDP11 FAMILY CPU (WITH MINIMUM 4K MEMORY) 
< —e 33 (OR EQUILIVALENT) 


du gos TEST CONNECTOR 
-5. MODEM WITH ANALOG LOOPBACK FEATURE 


2.1 
2.1 
2. 
ro 
2. 


STORAGE 


PROGRAM WILL USE-. ALL 4K OF MEMORY EXCEPT WHERE ABS AND 
BOOTSTRAP LOADER RESIDE. LOCATION 1500 THRU 1560 ARE 
ESPECIALLY TO BE NOTED AND LEFT UNTOUCHED BY THE OPERATOR 
AFTER THE DUP11 PARAMETER DIALOG HAS BEEN EXECUTED OR AFTER 
THE DEFAULT SETUP HAS BEEN DONE. 


LOADING PROCEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: 

SUCH AS DISK, — MAGTAPE, APE, CASSE 
INSTRUCTIONS FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT 
SPECIFIC MEDIA. 


ABSOLUTE LOADER STARTING ADDRESS = *+500 


PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. (ALSO PLACE 
"HALT' SW UP) 


DEPRESS "LOAD ADDRESS* KEY ON CONSOLE AND RELEASE. 


DEPRESS "START KEY" ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 
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4.0 


4.1 
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STARTING PROCEEDURE 

A. SET SWITCH REGISTER T9 000200 

B. DEPRESS "LOAD ADDRESS" KEY AND RELEASE 

C. ” ti SWR BIT 7=1 TO USE EXISTING PARAMETERS PREVIOUSLY 


UP_ BY THE DUP11 PARAMETER DIALOG. WHENEVER PROGRAM IS STARTED 
AT ADR 200 WITH SWR BIT7=0, NEW PARAMETERS MUST BE LOADED. 


"EXAMPLE" 
"MAP OF DUP11 STATUS" 
1500 160050 CSR OF DUP11 
1502 000300 VECTOR OF DUP11 


THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS 
TABLE STARTING AT ADDRESS 1500 IN THE PROGRAM. THE STATUS 
TABLE MUST BE VERIFIED BY THE USER. 


IT IS POSSIBLE FOR THE OPERATOR TO MANUALLY CHANGE (TOGGLE IN) 
THE INFORMATION IN THE MAP TO SUIT A SPECIFIC CONFIGURATION, 
BUT THE RESPONSIBILITY FOR VERIFYING THAT INFORMATION RESTS 
WITH THE OPERATOR. 

THE PROGRAM WILL TYPE 'R* AND PROCEED TO RUN THE MAINDEC 


CONTROL SWITCH SETTINGS 


SW 15 SET: HALT ON ERROR 

SW 14 SET: LOOP ON CURRENT TEST 

SW 13 SET: INHIBIT ERROR PRINT OUT 

SW 12 SET: INHIBIT TYPE OUT/BELL ON ERROR. 
~ \} SET: INHIBIT ITERATIONS. (QUICK PASS) 


SET: ESCAPE TO NEXT TEST ON ERROR 
SW O09 SET: RESERVED 

SW 08 SET: CATCH ERROR AND LOOP ON IT 

SW O07 SET: USE oo STATUS TABLE. 


SW 04 SET: RESERVED 

SW 03 SET: RESERVED 

SW 02 SET: LOCK ON SELECTED TEST 

SW 01 SET: RESTART PROGRAM AT SELECTED TEST 
SW OO SET: RESERVED 


SWITCHES 8 THROUGH 15 ARE DYNAMIC AND SHOULD BE USED AS NEEDED 
IN THE DIAGNOSTIC. SWITCHES 0 THROUGH 2 ARE STATIC (ONLY ARE 
OPERABLE WHEN THE MONITOR PORTION OF THE TAPE IS RUNNING) AND 
or am SET UP PRIOR TO STARTING OR RESTARTING THE 


SEQ 0005 
SEQ 0004 
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4.1.2 SWITCH REGISTER RESTRICTIONS 


SW 01 RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST THAT IS NOT IN THE ORDER OF 
SEQUENCE. THE REASON FOR THIS IS THAT THE PROGRAM HAS 
TO CLEAR AREAS AND SET UP PARAMETERS IN THE MONITOR 
PORTION OF THE PROGRAM. IT IS POSSIBLE TO LD200, AND 
RAISE SwWO1, THEN START, PROVIDED PARAMETERS HAVE BEEN 
PREVIOUSLY SET UP AS DESCRIBED IN SECTION 4.0. ALSO, 
WHEN A TEST IS SELECTED, ALWAYS START AT THE VERY 
BEGINNING OF THAT TEST. 


SWITCH REGISTER PRIORITIES 
A) ERROR SWITCHES 
SW 12 DELETE PRINT OUT/BELL ON ERROR. 
SW 13 DELETE ERROR PRINTOUT. 
SW 15 HALT ON THE ERROR. 
SW 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
SW 10 GOTO NEXT TEST(ON ERROR). 
SCOPE SWITCHES 


1. SW 14 - LOOP ON TEST. WILL LOOP ON TEST UNTIL SWITCH 
IS LOWERED. 


SW 11 = INHIBIT ITERATIONS (QUICK PASS). ALLOWS ONLY 
ONE PASS THROUGH A TEST. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200. THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE DUP11 DIAGNOSTICS OR THIS EXERCISER. 


NOTE: IF ADDRESS — IS “pa THE PROGRAM ASSUMES IT 
IS___UNDER CT11_ OR XXDP CONTROL AND WILL ACT 
ACCORDINGLY. MAFTER DUP11 IS TESTED, THE PROGRAM WILL 
RETURN TO "XXDP* OR "ACT-11". ALSO, UNDER 
""ACT11°" OR 'XXDP"' CONTROL THE FOLLOWING DEFAULT 
PARAMETERS ARE ASSUMED: 


4.2.1. ALL JUMPERS ARE ASSUMED TO BE IN 
THE FOLLOWING CONFIGURATION: 


SEC REC ENABLE 
SEC REC DISABLE 


BUS GRANT CONTROL 
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4.2.2. H325 TEST CONNECTOR IS ASSUMED TO BE ON. 


4.2.3. THE MANUFACTURING OPTION CSR 160050 AND 
VECTOR OF 770 ARE USED. 


4.2.4. THE BR LEVEL IS ASSUMED TO BE 5. 


OPERATING PROCEDURE 

WHEN THE PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
SECTION FOUR WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC. 

PROGRAM AND/OR OPERATOR ACTION 

THE TYPICAL APPROACH SHOULD BE 


1. HALT ON ERROR (VIA SW 15=1) WHENEVER AN ERROR OCCURS. 
2. CLEAR SW 15. 


THE TEST NUMBER AND PC WILL BE TYPED QUT AND POSSIBILY AN 


ERROR MESSAGE (THIS DEPENDS ON THE TEST), TO GIVE THE OPERATOR 
AN IDEA AS TO | SOURCE OF THE PROBLEM, IF IT IS NECESSARY 


THIS WAY THE EXACT 


EP IN 
FUNCTIONING OF THE TEST CAN BE INTERPRETED SINCE THE ERROR PC 
IS THE HLT+2 LOCATION. 


AT THIS POINT IT IS RECOMMENDED THAT THE NORMAL DIAGNOSTICS BE 
RUN TO ISOLATE THE ERROR CONDITICN. 


ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 
12=0). ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE ERROR 
ATs ng WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE 


ERROR RECOVERY 


IF FOR SOME REASON THE DUP11 SHOULD ‘HANG THE BUS' (GAIN 
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR POWER DOWN/UP_IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU. IF THIS SHOULD HAPPEN LOOK = LOCATION 
"TSTNO* FOR THE NUMBER OF THE TESi THAT WAS RUNNING AT THE 
TIME OF THE CATASTROPHIC ERROR. THIS GIVES THE OPERATOR SOME 
IDEA AS TO WHAT THE DUP11 WAS DOING AT THE TIME OF THE ERROR. 


RESTRICTIONS 
STARTING RESTRICTIONS 
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SEE SECTION 4 (PLEASE). STATUS TABLE SHOULD BE VERIFIED 
REGARDLESS OF HOW THE PROGRAM WAS STARTED. 


OPERATING RESTRICTIONS 
DUP11 PARA‘cCTER DIALOG MUST BE ANSWERED BEFORE RUNNING THIS 
PROGRAM. 


1. ANSWER THE COMPLETE PARAMETER DIALOG AGAIN. 


2. TOGGLE IN THE NEW CSR AT 1500 AND THE VECTOR AT 1502, THEN 
RESTART THE PROGRAM WITH SWO7=1. 


MISCELLANEOUS 
EXECUTION TIME 


ALL _DUP11 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS" MESSAGE 
(PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
ON THE PDP11 CPU CONFIGURATION. 


PASS COMPLETE 


NOTE: *EVERY* TIME THE PROGRAM IS STARTED, THE TESTS WILL RUN 
AS IF SW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO VERIFY 
NO *HARD* ERRORS AS SOON AS POSSIBLE. THEREFORE THE FIRST 
PASS--EACH TIME PROGRAM IS _ STARTED=-WILL BE A ‘QUICK PASS' 
UNTIL ALL DUP11'S IN SYSTEM ARE TESTED. WHEN THE DIAGNOSTIC 
HAS COMPLETED A PASS WITH THE NORMAL ITERATION COUNT 
Ve obec THE FOLLOWING IS AN EXAMPLE OF THE PRINT OUT TO 
\ . 


END PASS CZDPB? CSR:160050 VEC:300 PASSES:000001 ERRORS:000000 
NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE 
VALUES FOR THE DEVICE. THEY ARE ONLY FOR THIS 
EXAMPLE. 
KEY LOCATIONS 
RE TURN CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 
NEXT CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PERFORMED. 


TSTNO CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 


* «NOTE ** 
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IT SHOULD BE REMEMBERED THAT CZDPE IS NOT A "ane tana , BUT 
IT I1S_A CONFIDENCE TEST DESIGNED TO EVALUATE ONLY THAT THE 
THE DUP11 DAGNOSTICS 


DEVICE IS OPERATIONAL. IF THERE IS A FAILURE, 
WILL HAVE TO BE RUN FOR SPECIFIC FAULT DETECTION. 
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J 1 
INTRODUCTION TO DUP11 DIAGNOSTIC 


3*CZDPEBO /<377>/DUP11 CONFIDENCE TST 
>*COPYRIGHT 1975, DIGITAL EQUIPMENT SORP., MAYNARD, MASS. 01754 


SI Si aeelneer ieee einen inectanieenteeieieeten tne tetentneiontnn teaterioadineindnetentarartaetaetata tatiana teint ie te ee 
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STARTING PROCEDURE 

;LOAD PROGRAM 

;LOAD ADDRESS 000200 

PRESS START 

PROGRAM WILL ha "CZDPEBO /<377>/DUP11_ CONF IDENCE 4 Ue o- 
zPROGRAM WILL TYPE ‘R’' TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
SAND THEN RESUME TESTING 


SWITCH REGISTER OPTIONS 


$W15=100000 7=1,HALT ON ERROR 

$W14=40000 :=1,LO0OP ON CURRENT TEST 

SwW13=20000 :=1, INHIBIT ERROR TYPEOUT 

SW12=10000 :=1,DELETE TYPEOUT/BELL ON ERROR. 

SwW11=4000 :=1, INHIBIT ITERATIONS 

$w10=2000 :=1,FSCAPE TO NEXT TEST ON ERROR 

SwO9=1000 :=1,LOOP WITH CURRENT DATA 

$w08=400 :=1,LOOP ON ERROR 

Sw07=200 

SwW06=100 

Sw05=40 

Sw04=20 

Sw03=10 SELECT DUP"S DESIRED ACTIVE 
NOTE: THIS MUST NOT EXCEED ORIGINAL COUNi 

SWwO02=4 ;LOCK ON TEST SELECT 

Swe1=2 RESTART PROGRAM AT SELECTED TEST 


Sw J=1 sENTER PARAMETERS 


SEQ 0010 
SEQ 0009 


K 1 
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sREGISTER DEFINITIONS 


GENERAL REGISTER 
GENERAL REGISTER 


; GISTER 
;PROCESSOR STACK POINTER 
PROGRAM COUNTER 


LOCATION EQUIVALENCIES 


PS=177776 PROCESSOR STATUS WORD 
STACK=1150 :START OF PROCESSOR STACK 


: INSTRUCTION DEFINITIONS 


:DECREMENT PROCESSOR STACK 1 WORD 
: INCREMENT PROCESSOR STACK 1 WORD 
7SAVE RO ON STACK 

RESTORE RO PROM STACK 

sDECREMENT STACK TWICE 
Z INCREMENT STACK T 


WICE 
-EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 


B1T15=100000 





3 
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463 ee RR a en 

464 J eeec ea --2-------------------------------------------------- omnes —_ 

465 ; TRAPCATCHER FOR ILLEGAL INTERRUPTS 

466 ZTHE STANDARD "TRAP CATCHER'' IS PLACED 

467 BE TWEEN ADDRESS 0 TO ADDRESS 776. 

468 :1T LOOKS LIKE 'PC+2 HA 

470 ; : MARAARASAAALALLAALALLASLESLESELE SESE SESE SESE E SEE SESE SECC SLCC SSSA LSCL AS SY 

471 

472 000000 .=0 

4, ;STANDARD INTERRUPT VECTORS 

475 ¥ 

476 000024 .=24 

477 000024 004312 -PFAIL ;POWER FAIL HANDLER 

478 000026 000340 340 :SERVICE AT LEVEL 7 

479 000030 003730 wHLT :ERROR HANDLER 

480 000032 000340 240 SSERVICE AT LEVEL 7 

481 0900034 003676 . TRPSRV TGENERAL HANDLER DISPATCH SERVICE 

482 000036 000340 340 sSERVICE AT LEVEL 7 

483 000040 .=40 

484 000040 000000 0 zSAVE FOR ACT=11 OR DDP2 

485 000042 000000 0 SRETURN ADDRESS If UNDER ACT-11 CR DDP2 

486 000944 000000 0 :SAVE FOR ACT=-11 OR DDP2 

487 000046 002464 SENDAD [FOR USE WITH ACT-11 OR DDP2 

488 000052 .=52 

489 000052 000000 0 ;ACT-11 PROGRAM CHARACTERISTICS 

491 0001 74 .=174 

492 000174 000000 DISPREG: 0 ;SOFTWARE DISPLAY REGISTER 

493 000176 WREG: 0 :SOFTWARE SWITCH REGISTER 

49% 000200 

495 000200 000137 001510 JMP .START GO TO START OF PROGRAM 

497 

498 001000 =1000 

+9 001000 005377 055103 050104 MTITLE: .ASCIZ <377><12>/CZDPEBO /<377>/DUP11 CONFIDENCE TST /<377> 

500 001200 .=1200 

501 ;SWR AND LIGHTS 

20¢ Jroccoonn------- 

504 001200 177570 DISPLAY: 177570 311/45 CONSOLE LIGHTS 

205 001202 177570 SWR: 177570 Z INDIRECT POINTER TO SWITCH REGISTER 

207 ; INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 

509 - 

510 001204 177560 TKCSR: 177560 ;TELETYPE KEYBOARD CCNTROL REGISTER 

511 001206 177562 (KDBR: 177562 TELETYPE KEYBOARD DATA BUFFE 

512 001210 177564 TPCSR: 177564 :TELEPRINTER CONTROL REGISTER. 

313 001212 177566 TPDBR: 177566 :TELEPRINTER DATA BUFFER 

315 ZPROGRAM CONTROL PARAMETERS 

517 . 


mM 1 
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SCOPE ADDRESS FOR LOOP ON TEST 

+ 4DDRESS OF NEXT TEST TO BE fan 

ADDRESS FOR LOCK ON CURRENT DAT 

: NUMBER OF ITERATIONS THAT” CURRENT TEST WILL BE EXECUTED 


ooo0o—-Cco°o 


es Oo 


;PROGRAM VARIABLES 


STORAGE 
STACK POINTER STORAGE 
[PROGRAM COUNTER STORAGE 


zRO STORAGE 


3 TORAGE 
ZSTACK POINTER STORAGE 
PROGRAM COUNTER STORAGE 


REPEAT CTSDLY 
CTS DELA 


Y 
ZDELAY FOR DATA LEAD TESTS 
;DUP17"°S SELECTED ACTIVE. 
SOCTAL NUMBER OF DUP11°S. 


SAVPCA: 
REPEAT: 


0 
0 
0 
0 
0 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
5 
1 


bee 
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:CONTROL REGISTER DEFINITIONS 
-RXCSR BIT DEFINITIONS 
DSCA=BIT15 :DA ATA SET CHANGE A 


:CLR TO SEND 
;CARRIER DETECT 


SRD=81T10 
DSR=B1T9 
STPSYN=81 1g 
RXDONE=81T7 sREC DONE 
RINTEN=B81T6 REC INTR ENABLE 
DSINTE=B1T5S DSC INTR ENABLE 
RCVEN=81T4 sREC ENABLE 

SEC XMIT DATA 


sREQ TO SEND 
DATA TERM RDY 
eoutene* DATA SET CHANGE B 
RXDBUF BIT DEFINITIONS 
RXDERR=B1T z :R 
2 


1 
OVRRUN=81T1 
CRCERR=81 
RABORT=81T10 


GM=BI1T9 OF SAG 
RSOM=B1T8 =REC START OF MESSAGE 
PARCSR BIT DEFINITIONS 
DECMOD=B81T15 4333 MODE (DDCMP) 
CRCEN=81T9 
PRISEC=B1T12 PRI/SEC SELECT 
3 TXCSR BIT DEFINITIONS 
TXDLAT=81T15 2 TX DATA LATE 
MTDATA=B1T14 :MAINT DATA OUT 


A 
MRESET=B1T8 MASTER RESET 
TXDONE=81T7 
hla ha ;XMIT DONE INTR ENABLE 
SEND=B1 14 25 ND 


HDXEN=B1T3 DX/F DX 
2 TXCSR WRD DEFINITIONS 


3U E 

;MAINT INT MODE 

MAINT EXT MODE 
SYSTST=4000 SYSTEM TEST MODE 


; TXDBUF BIT DEFINITIONS 


RCRC7T=BIT15 
RCRCIN=BIT14 
TCRC7T=B1T13 
TCRCIN=BIT12 
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TIMER=B1T11 acahtt ci TIMER 
TABORT=B1T10 ; TRANSMIT ABORT 

TEOM=B1T9 ; TRANSMIT END OF MESSAGE 
TSOM=B1T8 ; TRANSMIT START OF MESSAGE 


MISC. PROGRAM DEFINITIONS 


DSCFLG: . 


INIFLG: . 3 PROGRAM a lee FLAG 
ERRFLG: . ERROR OCCURED FLAG 
LOKFLG: . ;LOCK ON CURRENT TEST FLAG 
QV.FLG: . SQUICK VERIFY FLAG. 
;ON FIRST PASS OF EACH DUP11 ITERATIONS 
ve [WILL BE SUPPRESSED 
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DEFINITIONS FOR TRAP SUBROUTINE CALLS 


:POINTERS TO SUBROUTINES CAN BE FOUND 
:IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


SRR ERR RRR RRA ARERR EERE EERE RARER EERE REE 


iene, ; SCOPE LOOP AND ITERATION HANDLER 
ScOPI=TRIBeT ; LOOP ON CURRENT DATA HANDLER 
jet : TELETYPE OUTPUT ROUTINE 
mwecun = ; ASCII STRING INPUT ROUTINE 
uae = ; INPUT ERROR HANDLER 

comnts = ; NUMERICAL DATA INPUT ROUTINE 
a ; REGISTER SAVE ROUTINE 

neces ; REGISTER RESTORE ROUTINE 
emcee ; DATA OUTPUT ROUTINE 
CNVRT=TRAP+11 ; ‘(0 DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
SETFLG=TAAPY 2 TELETYPE INPUT ROUTINE 


e 
STREETER REE ERE REE 
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D2 


ROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
:DUP11 VECTOR AND REGISTER INDIRECT POINTERS 


ooooo°oo oO GcOO°COoO 


:POINTER 


POINTER 


TO DUP11 
TO 


RECEIVER INTERRUPT VECTOR 


1 pS INTERRUPT SERVICE PS 


RANSMITTER INTERRUPT VECTOR 
TRANSMITTER INTERRUPT SERVICE PS 
RECEIVER STATUS REGISTER 
RECEIVER DATA BUFFE 
PARAMETER STATUS REGISTER 
TRANSMITTER STATUS oh Sa 
TRANSMITTER DATA BUF 


FER 
1 SECONDARY "ite a REGISTER 


TO PARAMETER STATUS HIGH B 

TO RECEIVER BUFFER HIGH BYTE 

TO RECEIVER CONTROL REG HIGH BYTE 

TO TRANSMITTER BUFFER HIGH BYTE 

TO TRANSMITTER CONTROL REG HIGH BYTE 


;DUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST 


: .BYTE 000 
-BYTE 8. 
: 000000 


;LAST CHAR TO TEST AND PARITY MASK 
NUMBER OF CLOCKS NEEDED FOR ONE CHAR 
3 PARAMETERS 


;DUP11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


: IBLKW 1 


sCONTROL STATUS REGISTER FOR DUP11 NUMBER 0 
"FOR DUP11 NUMBER 0 


VECTOR 


A 


PARAMETER FOR DUP11 NUMBER 0 


SEQ 0017 


SEQ 0016 
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;PROGRAM_ INITIALIZATION 

LOCK OUT INTERRUPTS 

SET UP PROCESSOR STACK 

SET UP POWER FAIL VECTOR 

CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
TYPE TITLE MESSAGE 


177776 =. START: 2 #340,PS ;LOCK OUT a= 


#STACK, SP SET UP S 
000024 a ,PFAIL, 2024 :SET UP ASS. COUNT VECTOR 


: OR FLAG 
:ZERO QUICK VERIFY FLAG 


W 
WMS NV IW ms 
NAONWONCO 


;CLEAR ERROR COUNT 
CLEAR LAST ERROR POINTER 
7 SE OR TEST 1 


88888Ssssss 


oS 
ss 


001226 #1,TSTNO 
012737 001214 #. START ,RETURN 


013746 9 -(SP) 2 SAVE CURRENT VECTORS 


000004 7SETUP FOR TIMEOUT 
@SWR [REFERENCE HARDWARE SWITCH REG 
;BR IF IT EXISTS 
001202 : EG, SWR :POINT TO SOFT SwWR 
001200 :POINT TO SOFT DISPLAY REG 
SADJUST STACK 
RESTORE VECTORS 


i IF gl OUTO MODE 

[DON'T TYPE ID 

; TYPE TITLE ME SSAGE 

SUSE SAME PARAMETERS? 

:1F NO, BR AND INPUT NEW PARAMETERS 
:IF YES, GO. 


:CLR MAP 
:DONE WITH MAP? 
BR IF NO 


AL JMF L 

OUTPUT MESSAGE & GET INPUT STRING 
«MESSAGE 

: CONVERT STRING 

LOW LIMIT 

sHIGH LIMIT 

STORE AT THIS LOCATION 

7 MASK 

HOW MANY TIMES + 2 

sOUTPUT MESSAGE & GET INPUT STRING 


:ME SSAGE 
CONVERT STRING 
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LOW LIMIT 

sHIGH LIMIT 

STORE AT THIS LOCATION 
MASK 


sHOW MANY TIMES + 2 
me sske MESSAGE & GET INPUT STRING 


GE 

SET FLAG BASED UPON INPUT STRING 
: THIS FLAG 

001342 MDMF LG sMODEM FLAG SET? 

71$ IF BR. 

001324 TCNFLG 

001344 ALJMFL 

BR 70$ 


: OUTPUT MESSAGE ® GET INPUT STRING 
:SET FLAG BASED UPON INPUT STRING 
tCNFEG 
70$ 

;OUTPUT MESSAGE & GET INPUT STRING 
‘MESSAGE 

[SET FLAG BASED UPON INPUT STRING 
STHIS FLAG 

ALUMF L 

70$ 

;OUTPUT MESSAGE & GET INPUT STRING 
‘MESSAGE 

;SET FLAG BASED UPON INPUT STRING 
ou & GET INPUT STRING 
[SET FLAG BASED UPON INPUT STRING 
“THIS FLAG 

SOUTPUT MESSAGE & GET INPUT STRING 
‘MESSAGE 

iSET FLAG BASED UPON INPUT STRING 
SOUTPUT MESSAGE & GET INPUT STRING 
‘MESSAGE 


SET FLAG BASED UPON INPUT STRING 
THIS FLAG 
DUPNUM 


SAVNUM 

DUPACTV 

#DUPCRO ,RO 

-BEGIN LET'S GO. 
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3** FOLLOWING PARAMETERS ARE LOADED IF UNDER ACT11 OR XXDP CONTROL. ** 


#Dup. MAP RO :SET UP POINTER 
UPACTV [DEVICE ACTIVE FOR TESTING 
#160050, (RO) CSR 
2(RO) : VECTOR 
#160088, 4 (RO) * STATUS Ano SYNC 
PRIRTY *PRIORTY 
Teer TCNFLG + TURN=AROUND=CONNECTER FLAG 
001325 TEMP! -OPCLRJ OPTIONAL CLEAR J JUMPER 


2 Ss 41 OOO -|$O 
ge ap et ee, oe 

VIWWGPoPonron vif 
5 ~N ~N 


-XHEAD ; 
001236 #DUP.MAP , TEMP1 7SET POINTER 
001240 : @TEMP1,TEMP2 SET DATA 

«BEGIN ALL DONE WITH DATA 


001236 etal UPDATE POINTER 


TEST START AND RESTART 


S ew eoeoeoeres 
e 


177776 2 #340,PS :LOCK OUT INTERRUPTS 
MO #STACK, SP eSET UP STACK 
BAGO S ie ere UNDER MONITOR CONTROL 


BR 

see FOR LOCK ON TEST 

;BR_IF NO LOCK DESIRED. 

: TYPE LOCK SELECTED. 

ZADJUST SCOPE ROUTINE. 

SET UP TO LOCK 

; CONT INUE ALONG. 

PREPARE NORMAL SCOPE ROUTINE 

BRX, SLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
#CYCLE RETURN ZSTART AT “CYCLE FIND WHICH DEVICE TO TEST 


MR TYPE R 
@RE TURN sSTART TESTING 
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865 END OF PASS 
866 : TYPE NAME OF TEST 
867 UPDATE PASS COUNT 
868 CHECK FOR EXIT TO ACT=11 


RESTART TEST 


871 002352 005037 001234 -EOP: CLR LSTERR CLEAR LAST ERROR PC 
872 002356 105037 001351 CLRB ERRFLG CLEAR ERROR FLAG 
873 002362 005237 001230 INC PASCNT [UPDATE PASS COUNT 
874 002366 013777 001230 176604 MOV PASCNT ,@DISPLAY ;DISPLAY PASS COUNT 
875 002374 104402 004373 TYPE »MEPASS ;TYPE END PASS 
876 2400 104402 004555 TYPE -MCSRX : TYPE CSR 
877 002404 104411 002510 CNVRT ,XCSR SHOW IT 
878 002410 104402 004563 TYPE oMVECX : TYPE VECTOR 
002414 104411 002516 CNVRT ,XVEC :SHOW IT 
002420 104402 004571 TYPE -MPASSX TYPE PASSES 
881 002424 104411 002524 CNVRT ,XPASS :SHOW IT 
002430 104402 602 YPE -MERRX : TYPE ERRORS 
883 002434 104411 002532 CNVRT ,XERR :SHOW_IT 
002440 112737 377 001253 MOVB #377 ,QV.FLG SSET THE QUICK VERIFY FLAG. 
885 002446 113737 001317 001320 MOVB DUPNUM, SAVNUM RESTORE THE COUNT 
886 002454 013701 MOV M42,R1 CHECK FOR ACT-11 OR DDP 
887 002460 001406 BEQ RESTRT :1F NOT, CONTINUE TESTING 
888 002462 000005 RESET STOP THE SHOW=-CLEAR THE WORLD 
889 002464 SENDAD : 
890 002464 004711 JSR PC,(R1) 
891 002466 000240 NOP 
002470 000240 NOP 
893 002472 000240 NOP 
894 002474 000240 NOP 
002476 012737 005624 001214 RESTRT: MOV ACYCLE ,RETURN 
896 002504 000137 005624 JMP CYCLE 
897 002510 000001 XCSR: 1 
898 002512 006 002 OYTE 6.2 
899 002514 001412 RXCSR 
900 002516 000001 XVEC: 1 
901 002520 003 002 -BYTE 3,2 
902 002522 001402 DUPRVC 
903 002524 000001 XPASS: 1 
904 002526 006 002 -BYTE 6,2 
90S 002530 001230 PASCNT 
906 002532 000001 XERR: 
907 002534 006 002 -BYTE 6,2 
pate 002536 601232 ERRCNT 
oy SCOPE LOOP AND INTERATION HANDLER 
912 002540 005037 001234 -SCOPE: CLR LSTERR CLEAR LAST ERROR PC 
913 002544 010016 MOV RO, (SP) SAVE RO ON STACK 
914 002546 032777 040000 176426 BIT #B1T14,aSWR [LOOP ON TEST? 
915 002554 001407 TTST:  BEQ 1$ BR IF NO (IF LOCK SWO1 = 1;THIS LOCATION = 240) 
916 002556 000437 BR 3$ 760 TO 3$ (DITTO) 
917 002560 105777 176420 TSTB aTKCSR :KYBD DONE? 
918 002564 100034 BPL 3$ :BR_IF NO (LOCK: HIT A KEY UN TTY TO GO TO NEXT TEST) 
919 002566 017700 176414 MOV @TKDBR RO :CLR_ DONE BIT 
920 002572 000415 BR 2$ : CONT INUE 
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002574 
002602 
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032777 
011 
105737 
06 


— 


176326 


000002 
000002 
010000 


004352 
176232 
176226 


000004 
000002 
005560 
000007 
176152 
176146 
000200 
000015 
176132 
176122 


176400 
001222 


001222 
001214 


000002 
176242 


003014 
000004 


176124 
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END OF PASS ROUTINE 


1$: 


TYPE: 


2$: 


3$: 


- INSTR: 


- INST1: 


-MSG: 


1$: 


2s: 


BIT #SW11,aSWR 
2$ 


E 
TSTB QV.FLG 
BEQ 2$ 
INC LPCNT 
CMP LPCNT, 1 COUNT 
BNE 3$ 
CLRB ERRFLG 
CLR LPCNT 
CLR LOCK 
MOV #50, 1 COUNT 
MOV NEXT ,RE TURN 
MOV ° 
POP2SP 
JMP @RE TURN 
1407 

37 


MOV R5,-(SP) 
MOV @2(SP) ,R5 
ADD #2,2(SP) 
BIT pecan 


2+ Hy — (QUICK PASS)? 


“HAS FIRST PASS ie COMPLETED? 
3BR IF QUICK VERIFY 
;UPDATE_ ITERATION COUNTER 


sALL_ ITERATIONS DONE? 


F NOT YET 


“PREPARE FOR NEW TEST 
SSTART ICOUNT AT ZERO 


sRESET ITERATIONS 


GET NEXT TEST 
zPOP RO | — 
:GO DO THE TEST 


;SAVE RS ON THE STACK. 


GET ADDRESS OF MESSAGE. 

:POP OVER ADDRESS. 

; INHIBIT ALL PRINT OUT?? 

BR IF NO PRINT OUT WANTED (Sw12=1) 

iTS io MINUS? (MSB=1(BIT7)) 
F NUMBER IS PLUS 

TYPE A CR/LF! 

STTY READY? 

BR IF NO. 

PRINT CURRENT CHAR. 

:1F NOT ZERO KEEP PRINTING! 

SEND OF OUTPUT. RESTORE R5 


SAVE R3 ON STACK 
SAVE R4 ON STACK 


TSTB. — (R'5) 
L 2$ 

TYPE §,MCRLF 

TSTB = @TPCSR 

BPL 2$ 

MOVB  (R5)+,@TPDBR 

BNE 1$ 

MOV (SP)+,R5 

RTI 

MOV R3,-(SP) 

MOV R4.=(SP) 

MOV a4 (SP), .MSG 

ADD #2,4(SP 

TYPE 

MOV #INBUF .R4 

MOV #7,R3 

TSTB = @TKCSR 

BPL 1$ 

MOVB aTKDBR, (RA) 

BICB #200, ( 

CMPB ss (RG) + on ‘ 

BEQ INSTR? 

TSTB. = @TPCSR 


BP. 2s 
MOV tactic 


1$ 
MOV (SP)+,R4 


SEQ 0022 
SEQ 0021 
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003074 012603 MOV (SP)+,R3 

003076 010346 . INSTE: MOV R3,~(5P) 

093100 010446 MOV R4,=-(SP) 

003102 104402 004346 TYPE .MOM 

003106 000741 BR . INST1 

003110 012604 INSTR2: MOV (SP) +,R4 sRESTORE R4 

003112 012603 MOV (SP)+,R3 RESTORE R3 

003114 000002 RTI 


CONVERT ASCiI STRING TO OCTAL 


977 
978 
979 
981 
983 
985 
987 
988 
989 
991 
992 
993 
994 
995 
997 
998 
1600 
1001 
1002 
1003 





003116 010546 .PARAM: MOV R5,=(SP) 
003120 010446 MOV R4,-(SP) 
003122 016605 MOV (SP) .R5 
003126 012537 003306 MOV (R5)+,LOLIM 
003732 012537 003310 MOV (R5)+,HILIM 
003136 012537 003312 MOV (R5)+,DEVADR 
003142 112537 003314 MOVB  (R5)+,LOBITS 
003146 112537 003315 MOVB = (R5) +, ADRCNT 
003152 010566 MOV 5,4( 
003156 005005 PARAM1: CLR 
003160 012704 005560 MOV INBUF .R4 
003166 120714 000015 CPB #15, (R4) 
003172 121427 000060 1$ CMPB —s_ (R44) , #60 
003176 0024 BLT 

3200 121427 000067 CMPB —s.-« (R44) , #67 

1005 003204 0030 BGT 

1006 003206 142714 000060 BICB #60, (R4) 

1007 003212 152405 BI (R4)+,R5 

1008 003214 122714 000015 C #15, (RG) 

1009 003220 001406 BEQ LIMITS 

1010 003222 006305 ASL 

1011 003224 006305 ASL R5 

1012 003226 006305 ASL R5 

1013 003230 000760 BR 4 

1014 003232 104404 PARERR: INSTER 

3015 003234 000750 BR PARAM1 

1017 :TEST TO SEE IF NUMBER IS WITHIN LIMITS 

1019 , 

1020 003236 020537 003310 LIMITS: CMP RS,HILIM 

1021 003242 101373 BHI PARERR 

1022 003264 020537 003306 CMP R5,LOLIM 

1023 003250 103770 BLO PARERR 

1024 003252 133705 003314 BITB  _LOBITS.RS 

1025 56 001365 BNE PARERR 

Ht ySTORE NUMBER AT SPECIFIED ADDRESS 

1029 003260 013704 003312 MOV Re 

1030 003264 010524 1$: MOV (Ras 

1031 003266 06270 


5 000002 ADD 
003272 105337 003315 DECB ARENT 
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1033 003276 BNE 1$ 
1034 0 (SP)+,R4 
(SP)+,R5 


ADRCNT=LOBITS#1 
= CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


.CONVR: TYPE 
~CNVRT: MOV 


(R1)+*, CHRCNT 
(R1)+,SPACNT 
@(R1)+,BINWRD 
BINWRD ,R4 
CHRCNT RS 
#TEMP RO 


: R4,R3 
177770 #177770,R3 
000060 ADD #060,R3 
R3,(RO)+ 
RS 


R4 


R4 
R5 


3$ 
#MDATA,R3 
-(RO), (R3)¢ 
CHRCNT 


BSRSRRSES 
S222885525=85 


(SP)+°R1 
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012600 (SP)+,RO 
000002 RTI 
000020 
000000 CNT: 0 
003617 SPACNT=CHRCNT +1 
000000 BINWRD: 0 
sCOMPARE THE FIRST CHARACTER Pie aS TELETYPE INPUT 
SBUFFER TO THE CHARACT ERS “wr 
31F THE CHARACTER IS ‘WN’ CLEAR We TAG 
TIF THE CHARACTER IS ‘'Y’*’ SET THE FLAG 
-SETFLG: a(SP) RS 
000040 005560 a #40, INBUF 
000116 005560 MPB ceed 31S IT ‘NW ? 
(R5) 3000 
BR 2s 
000131 005560 : a#°y, INBUF 318 17 °Yv’* ? 


BNE 3$ 
177777 MOVE #~1, (R5) 3377 
000002 : ADD #2, (SP) 


RTI 
INSTER ;RETRY 
BR -SETFLG 


3323333333 


3 TRAP ree SERVICE 

ZARGUMENT OF TRAP IS EXTRACTED 

AND USED AS OFFSET TO OBTAIN POINTER 
TO SELECTED SUBROUTINE 


(SP) ,-(SP) IGET PC OF AR RE TURN 
#2, (SP) [=PC OF T 

aaa ia ee TRAP ARG BY 
#177001 (SP) 


a. tke (SP) 
) (SP) 


s2ecnaes 33 


ERROR HANDLER 


#Sd12,@SwR 
XBX 
a@TPCSR 


#207 aTPDBR 
ws $,aSwR 


HALTS 

+ oLSTERR 
(SP) .LSTERR 
ERRFLG 


Baze 
ats 


@ 
os 
~ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


REA LESBLEAEUNLSYSVRGRUN VB GH VS ARAWASSRIKGRALLS 


oeean 
& o 
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C 
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1145 
11 


~ 
_ 
* 


kk kk kk kk kk ed kk dd ed dd od et td 
BELELRASLESELERLATALSISVRARANVSISELETLAR AS SSNKALUNAS SELES 


SERsEEeeareenee 


EE 
on 


RRRERERRERRR EERE REER EE 
PIA NAARLSSKGLSRORERBESES 
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So 
ab 
— 


ereasexe: 
sseyeeses 


gsgsece 
Suen ee 
RAS AAGE 


sassy: 


Rw 
Ss: 


38 
F2o 
see 


16:07 


000002 


g 


BISESE 
RS 


5 
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001351 


000042 


174742 
174732 
001214 


09 P 


AGE 27 
END OF PASS ROUTINE 


1$: 


TYPMSG: 


1$: 


ERRMSG: 
WRKU.FM: 


DATAHD: 
TYPDAT: 


DATASP: 
RESREG: 
HALTS: 


1$: 


EXITER: 


1$: 


SAVOS 
MOV 


MSENDAD , 0442 
1$ 


aSwWR 
EXITER 


2(SP) .RO 
ERRCNT 
oss .8s 
#SW10,aSWR 
2s 


NEXT ,RE TURN 
#STACK, SP 


FRARS 


: 
: 


. 
o 
pa 


;BR 
; DOE 
BR 


:] 


DAT 
“BR 


TIF 

HAL 

7BR 
SA 


HAL 


me 
ct + 
v 


os 


If ¥ 
S DATA TABLE EXIST? 
IF YE 


L 
MORE HEADER UNLESS NO DATA TABLE. 
Hae | AN ERROR MESSAGE? 


A_HEADER? 
IF NO 


DATA HEADER 


[DATA TABLE? 
"BR IF NO. 


DA 


TA_TABLE 
RESTORE PROC REGISTERS 


ACT=11 AUTO MODE--HALT!! 


T ON ERROR? 
IF NO HALT ON ERROR 


VE 
SHOW ERROR PC IN DATA LIGHTS 


T 


SEQ 0026 
SEQ 0025 
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000177 174724 JMP @RE TURN + Hy SPECIFIED TEST 
000002 2$: RTI RETURN 
ERTABO: 1 
002 -BYTE 6,2 

SAVPC 

XTSTN: 1 

002 -BYTE 3,2 

TSTNO 


SSB 


1 
1 
1 
1 
1 
1 
1 
1 


Sau 
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-P11 19=JAN=79 16:07 END OF PASS ROUTINE SEQ 0027 


;WAIT ROUTINE 
000240 SMALL: NOP 
090207 RTS PC 


sPOWER FAIL ROUTINE 
012737 004322 -PFAIL: #Pwr 'P,24 ;LOAD PFAIL VECTOR FOR POWER UP 
000000 HAL T : 

PWRUP : sWAIT TTY TO COME UP 


001150 MO ASTACK, SP SREINIT STACK POINTER 
004312 #.PFAIL,24 sLOAD PFAIL VECTOR FOR POWER DOWN 


aad anh ead ant cad cad ea cath cd ae 
OONAUVUSWN—O 


ed nd ed ed ed ed ed od ns 


N 


174646 MP @RE TURN 
MQM: ' ee «J 
MCRLF: . <15><12> 
020122 MPOWER: . <377>/PWR FAILED. / 
042105 
042116 MEPASS: . <15><377>/END PASS CZDPER / 
020123 
041105 


MR: ‘ <377>/R/ 
043517 MERR2: .ASCIZ <377>/PROGR‘M INDICATES NO DEVICES PRESENT. / 


MERR3: .ASCIZ <377>/INSUFFICIENT DATA!/ 


020124 MISTPC: .ASCIZ <377>/TEST PC-/ 
020113 MLOCK: .ASCIZ <377>/LOCK ON SELECTED TEST/ 


MCSRX: .ASCIZ /CSR: / 
020072 MVECX: .ASCIZ /VEC: / 
042523 MPASSX: .ASCIZ /PASSES: / 
051522 MERRX: .ASCIZ /ERRORS: / 
020124 MISIN: .ASCIZ /TEST NO: / 
a3 MASTEK: .ASCIZ 


AQunnes 
MMmor 


/*/ 
377 020124 MNEW: .ASCIZ <377>/SET SWITCH REG TO DUP11"S DESIRED ACTIVE./ 
053523 044103 
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052040 


042526 
000 MERRPC: .ASCIZ /PC: / 
020103 MCSR: eASCIZ <377>/REC CSR ADRS / 
042101 
—— MVEC: eASCIZ <377>/VEC ADRS / 


MMODEM: .ASCIZ <377>/1S A MODEM WITH ANALOG LOOPBACK ENABLED CONNECTED? (Y OR N) 


Ne NS oo 
RaRWVLIV=G oO 


=S85 


047040 
052040 MJMPR: .ASCIZ <377>/I1S THE OPTIONAL CLR JMPR IN? (Y OR N) / 


; 
0 
1 


MTCN: eASCIZ <377>/1S THE H325 CONNECTOR ON? (Y OR ND / 


Sees 


MPAR : eASCIZ <377>/PRIORITY (4 TO 7) / 
033440 
ponies MSTJM: .ASCIZ <377>/SEC TX JMPR IN? (Y OR N) / 
020122 | 


MSRJM: .ASCIZ <377>/SEC RX JMPR IN? (Y OR N) / 


SESssR 


pense XHEAD: .ASCIZ <377>/MAP OF DUP11 STATUS/<377> 
040524 
000 


me kn sg ag td od od od 


WWWNWWNIANWNWNWWW 
NOR a SS oe 
—SO ODBNAURWN oO 


0 
052524 
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051101 020105 MALLJM: .ASCIZ <377>/ARE THE DEFAULT JUMPERS ALL IN? (Y OR.N) / 


024516 

020105 MDSC:  .ASCIZ <377>/ARE DSC 1 AND 2 BOTH IN? (Y OR N) / 
020061 

020062 

04444 


0 
020131 
020051 


WIWWNWNWG 
SS ¥ 


ERELKERER YK 
VIS SONRARWNBOS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


. +40 
TRP.PC: . 


WAG 
WIV 
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1353 
1354 
1355 
1356 
1357 
135 


SSSSISEE RT RRREEES 


SS 
oun 


WWIWWAWG WAG 
VYPSSVLSSSVSSSSASIGN 


Ww 
n?) 
N 
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105737 
001004 
104402 
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001316 
004421 


000002 
004352 


001432 
001414 
001424 


001426 
001420 


001436 
001422 
001434 


001404 
001406 
901410 


173072 
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END OF PASS ROUTINE 


CYCLE: 


1$: 


7$: 


ROUTINE USED TO ‘CYCLE’ THROUGH UP TO EIGHT DUP11'S 
THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
AND RUNS THE SPECIFIED DUP11°S. THIS ROUTINE *MUST* 
BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
: SETUP NECESSARY. 


ada 
-MERR2 

72 

ADUP .MAP ,RO 
(RO)+,RXCSR 
(RO) +, DUPRVC 
(RO) +,L00.00 
#2,R0 
RXCSR,HUPRCR 
HUPRCR 
HUPRCR , RXDBUF 
RXDBUF 
RXDBUF , DUPSEC 
RXDBUF , PARCSR 
RXDBUF , HUPRBF 


HUPRBF 
HUPRBF , HUPPSR 
a ge -TXCSR 


XCSR 
TXCSR,HUPTCR 
HUPTCR 
oh be TXDBUF 

TXDBUF 
TXDBUF , HUP TBF 
HUP TBF 


DUPRVC , DUPRPS 
RO, DUPRPS 
DUPRPS , DUPTVC 
RO,DUPTVC 
DUPTVC, os 
RO,DUPTP 

#L00. e. RO 
A#MASK.A,R1 
#CLK.A,R2 
PC,FIX.00 
a2 


4$ 
#SWO1 ,@SWR 
4$ 


sARE 
7BR 


Ba ' DUP11°S TO BE TESTED? 


NO DUP11°S SELECTED!! 
:STOP THE SHOW. 

:DISQUALIFY CONT. SW. 
RESTORE POINTER 

LOAD Ak A CTRL. REG 
;LOAD VECTOR 


:GET 


PARAME TERS 


: SAVE CORE THIS 


RX VE 


T lca REG “aIGH BYTE 


"7 CONTROL REG BUFFER 
SECONDARY REG SELECT REG 


T PARAMETER STATUS REGISTER 


7 BUFFER HIGH BYTE 


PAR STATUS REG HIGH BYTE 
He CONTROL REGISTER 


I 

7 CONTROL REG HIGH BYTE 
H. BUFFER 

Ht BUFFER HIGH BYTE 


CTOR 


3RX PRIORITY LEVEL 
:TX VECTOR 
7TX PRIORITY LEVEL 


LOAD STAUS 00-00 

PREPARE MASK. 

PREPARE CLOCKS 

:GO AND CALCULATE CONFIGURATION. 


zIF SwWO1=1,GET STARTING TEST # 


-MCRLF 
OUTPUT MESSAGE & GET INPUT STRING 
ME SSAGE 


SEQ 0031 
SEQ 0030 
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012737 
000177 


011003 
000207 


19=JAN-79 
16:07 


006364 
012737 


001226 
001226 


010040 
004 346 


006364 
172760 


000002 
000004 


001214 
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END OF FASS ROUTINE 
PARAM ;CONVERT STRING 
LOW LIMIT 


1 
1000 THIGH LIMIT 
TSTNO STORE AT THIS LOCATION 


.BYTE 0 ‘MASK 
“BYTE 1 ‘HOW MANY TIMES + 2 

MOV #TST1,RO 
5$: CMP mar3e (RO) 

BNE 6$ 

CMP TSTNO,2(RO) 

BNE 

CMP #TSTNO, 4 (RO) 

BNE 6$ 

MOV RO, RETURN sSAVE PC 

TYPE MCRLE 

TYPE « 

BR &$ 
6$: TST (RO) + 

CMP RO, ATLAST+10 

BNE o¢ 

TYPE MOM 

BR °$ 
4$: MOV #TST1,RETURN — ; PREPARE RETURN ADDRESS 
8$: JMP @RE TURN “GO START TESTING. 
FIX.00: MOV (RO) .R3 :GET PARAMETERS. 
5$: RTS PC : 


SEQ 0032 
SEQ 0031 
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104001 
000002 


104002 
000002 


19=JAN=79 
16:07 


001324 
001325 


006304 
001325 


006304 
001324 


6($330 


173044 


173036 
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END OF PASS ROUTINE 


sTHIS ROUTINE PICKS UP THE “at uit a 
THE JUMPER TABLE AND LOADS R5 WITH 
THE CORRECT DATA BASED ON ON THE STATE 


OF THE 


JUMPER: MOV 


2$: C 


3$: MOV 
5$: RTS 


OJUMPER :MOV 
TSTB 


4$: CMP 
MO 
6$: RTS 


sROUTINE TO SET 
SETVEC: MOV 


NO.BTRAP: 
HLT 
RT] 


JUMPER AND CONNECTOR FLAGS. 

(R1)+,RO GET THE TABLE ADDRESS 

TCNFLG TEST THE TURN AROUND CONNECTOR FLAG 
2$ :BRANCH IF en Ys IS MISSING 
OPCLRJ TEST CLEAR JMPER FLAG 

$ BRANCH IF JMPER IS MISSING 

(RO) .R5 :MOVE THE DATA TO R5, BOTH JUMPER 


$$ SAND CONNECTOR ARE THERE 
(RO) +,(RO)+ :POP_ POINTER 


OPCLRJ TEST CLEAR JMPER FLAG 
3$ BRANCH IF MISSING 
oe sMOVE DATA= JUMPER IN, CONNECTOR OFF 
(RO)+,R5 «NO CONNECTOR OR JUMPER 
R1 RETURN 

(R1)+,RO :GET THE POINTER ADDRESS 
TCNFLG CHECK FOR TURNAROUND CONNECTOR 
4$ :BR IF MISSING 

(RO) ,R5 ;MOVE THE INFO TO RS 

6$ :GO BACK 

(RO) +, (RO)+ ;POP POINTER 

(RO) .R5 ~LOAD DATA TO R5 

R1 :RE TUN 

UP_INTERRUPT VECTORS 

(R5)+,aDUPRVC 

(R5)+,aDUPTVC 

(R5)+,@DUPRPS 

(R5)+,@DUPTPS 

RS 

: 

2 


SEQ 0033 
SEQ 0032 
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1483 

1484 PERAK REREEERKKKKR RRR TEST | eee eee eee REE ROKER 

1485 *THIS TEST PROVES THE INTERACTION OF DTR!RTS!STD 

1486 7*WITH RING,DSR,CTS,CARDET,STD,SRD 

1487 ;*AND DATA SET CH ANGE ONE AND DATA SET CHANGE T 

1488 *SET THE BIT AND VERIFY THE OTHER BITS ARE SET” CLEAR 

1489 *THE BIT AND VERIFY CLEAR. REPEAT FOR MRESET. 

1490 TEAS IIE SOUR ERR EERE RARE AA EER RRR R EERE EEE EER 

1491 

1492 DP RR tk tek 

1493 : * 

1494 g TES! 7 

1495 ° 

1496 DOO IR Ik 

1497 FORO IIIIOI II IIIOIIIIIIOIIIIIIUII IO IOIIIIIIOIIOIUIIOIUIOIOIOI IORI R hth ttt 

1498 006364 012737 000001 001226 TST1: MOV #1,04TSTNO 

1499 006372 012737 006744 001216 MOV ATST2,NEXT 

1500 006400 012746 173017 MOV #173017,-(SP) 7 SAVE 

1501 04 012746 173001 MOV #173001,-(SP) 

1502 006410 012746 001016 MOV #1016,-(SP) 

1503 006414 012746 0C0000 MOV #0,-(SP 

1504 006420 105737 001324 TSTB TCNFLG 3H325 TEST CONNECTOR ON? 

1505 006424 001532 BEQ 6$ 71F NO, SKIP TEST. 

1506 006426 105737 001344 100$:  TSTB ALJMFL 

1807 006432 001034 BNE 12$ 

1508 006434 012701 002010 #STD!SRD,R1 

1509 006440 105737 1336 TST 

1510 006444 001007 E 101$ 

1511 006446 040137 006734 BIC Ri,/7$ 

1512 006452 040137 006736 BIC R1,7$+2 

1513 006456 040137 006740 BIC R1,7$+4 

1514 006462 000411 BR 1 

1515 006464 105737 001340 101$: TSTB SRJIMFL 

1516 006470 001006 BNE 102$ 

1517 006472 040137 006734 BIC R1,7$ 

1518 006476 040137 006736 BIC R1,7$+2 

1519 006502 040137 006740 BIC R1,7$+4 

1520 006506 105737 001346 102$:  TSTB DSCFLG 

1521 006512 001 BNE 12$ 

1522 006514 005337 006734 DEC 7$ 

1523 0065 005337 006736 DEC 7$+2 

1524 006524 004137 005306 12$: JSR R1,0JUMPER sTHIS CALL eye IF TURNAROUND CONNECTOR 

1525 0065 0067. 7$ AND OPTI UMPER ARE USED 

1526 AND LOADS R5 YEXPECTED) ACCORDINGLY. 

1527 006532 005077 172654 CLR @RXCSK 

1528 006536 052777 000400 172654 BIS MMRESET,@TXCSR ;RESET THE DEVICE 

1529 006544 004737 004306 JSR PC, SMALL :WAIT FOR RESET TO FINISH 

1530 006550 073703 001412 MOV RXCSR. a? LOAD THE RECEIVER CONTROL REGISTER TO R3. 

1531 006554 052777 010000 172636 BIS #MEXT ,ATXCSR *ENTER EX XTERNAL MAINT. MODE 

1532 006562 052713 000016 1$: BIS MDIRIRTS STD, ( (R3) ; TURN os DTRIRTS!STD 

1533 566 012737 000110 006616 MOV #11 [LOAD THE NUMBER 

1534 006574 032777 004000 172620 66$: BIT #1 IMER , aTXDBUF sCece THE TIMER BIT 

1535 2 001374 BNE 66$ 7BR IF SET 

1536 032777 004000 172610 67$: BIT MTIMER,@TXDBUF ;CHECK THE BIT 

1537 006612 001774 BEQ 67$ :BR IF CLEAR 

1538 006614 005327 DEC (PC)+ ;DECREMENT THE NUMBER 
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68$: OF TIMES TO REPEAT 
66$ ;BR_IF MORE TO GO 
(R3) ,R4 :GET THE he FROM THE RXCSR 
ae :R5=GOOD R 
; BRANCH IF THEY MATCH 
3 NO MATCH = SHOW OPR. 
001220 : #3$, 


006644 >$WO9 SETUP 

073016 PRING! CTS! CARDETISRD DSR! STDIRTS!DIR, R5 CLEAR OUT UNWANTED BITS 
: (R3) ;CLEAR OUT THE REGISTER 

000005 006676 TH 


MO #5 ,73$ LOAD THE NUMBER 
004000 172540 : J SF a atlamaaeanl : CHECK a TIMER BIT 
004000 172530 : ——— CHECK THE BIT 


BR IF CLEAR 
(PC)+ eee THE NUMBER 
TIMES TO REPEAT 
71$ ‘BR IF MORE TO GO 
(R3) ,R4 sREAD ay § THE REGISTER 
R5.R4 ;R5=GOOD 
BRANCH IF “ONLY THE DSC BITS ARE SET 
:NO-GO TELL OPR 


(SP) +,7$+6 RESTORE 
(SP)+,7$+4 

(SP)+,7$+2 

(SP)+,7$ 


173017 
173001 
1016 


MAMI YI UII UU) 
TRELRIALARAARAL ER 


an 
ak 


SCOPE THE WHOLE TEST 


Ss 


pttakkeakaeankaaeeeeekehek TEST 2 cee eeeae eee eee eee eee ekeeeee 
:*TEST OF THE DUP RUNNING A BINARY COUNT 
3*PATTERN WITH A CRC CALCULATION AS A SECONDARY STATION 


FLARE AEE REE RRREEEREKEREEEREEEEREEREREREREREREE EERE 


ANASSE 


BVRA 


ice 


TEST 2 
wn 


Rae 
PRC EPiI Tri rir tiv itis iti titi tt titi titi titi titi titi 
TST2: #2, a4TSTNO 
MO #T5T3,NEXT 
WMRESET ,@TXCSR nt i THE DEVICE 
PC,SMALL WAIT FOR RESET TO at 
Ae 3H325 TEST CONNECTOR ON 


$ :1F NO, BR. 
#MEXT ,103$+2 IF YES, SET MAINT 


#5, TEMPS 
R1 CLEAR OUT DATA 
Ap CCITT, XPOLY:SET UP THE POi YNOMIAL 
#~1 ,CALBCC SETUP FOR THE FIRST TIME 
CALBCC, 208 ALLOW FOR THE NEXT CHARACTER 


YAAAA AAI VIII 
NIN N 


RSS3 


012737 


ViVvIiwnw 
NOU ES Ww 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
I 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DBDOoOwwwoe 
RANLESE 
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010137 007052 R1,17$ ;LOAD DATA 
004537 007650 R5,SIMBCC [GO CALCULATE SOFTWARE BCC 
8. BASED ON THESE PARAMETERS 
i :DATA 
1 PREVIOUS BCC 
R1 ; INCREMENT DATA 
j 168 ;BR IF MORE TO GO 
001236 #1, TEMP? LOAD DATA 
TEMP2 i CLEAR EXPECTED 
177776 MOV #340, PS 7 
172310 : #SYSTST ,ATXCSR ENTER SYSTEM TEST MODE 
J R5,SETVEC [LOAD INTERRUPT VECTORS 
RECEIVER 
; TRANSMI TER 
340,340 ZLEVEL 
SERA RRA EREEREEEREERREREEEEEREEEEEEEREEREEREREREERERERRE EE 
**FOLLOWING CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED** 


FEE EREREEEEREKEREREREEEEAEEREEREAERRERREREREEEEE 


— MODEM CONNECTED? 


04$ :IF_NO, 
REPEAT ,R3 SREPEAT CTSDLY 
172256 T,aTxCc SET EXTERNAL MAINTENANCE 
7SET TIMER 
ENABLE MODEM. 
06$: MOV sWAIT FOR CTS 
172222 : :CLEAR TO SEND UP? 
BNE 1048" :1F YES, BR. 
STEP COUNTER IF NO. 
:IF NO TRY AGAIN. 


sALLOW CTSDLY TO REPEAT 
BR IF NOT COMPLETE 


:CTS STILL NOT ACTIVE 
[D0 NOT CONTINUE TEST 
LRRRRERARR RARER RRR ARERR ERR ERR REET REE CRRRRRR EERE EERE ERE Ree eee eneeeenee 
000020 172174 104$: WRCVEN,@RXCSR_; TURN ON THE RECEIVER 
000100 172166 BIS #RINTEN, @RXCSR : TURN ON REC INTERRUPT ENABLE 
172170 1$: aTXCSR X DONE 


BP’ : 
000020 172160 2$: SEND ,@TXCSR ON SEND 
012777 000400 172154 #TSOM,ATXDBUF TURN ON START OF MESSAGE 
00 : 


012737 000005 7276 MOV #5 .68$ ;LO4D THE NUMBER 
004000 173140 66$: ATIMER,@TXDBUF ; CHECK on TIMER BIT 


BNE BR IF SET 
004000 172130 : #TIMER,@TXDBUF see THE BIT 
67$ BR IF CLEAR 
(PC)+ :DECREMENT THE NUMBER 


OF TIMES TO REPEAT 
:BR IF MORE TO uO 


BNE 66$ 
001244 yenPs 


LT 4 
172102 2 aTXCSR WAIT FOR DONE 
BP 101$ ;BR_IF NOT SET 
172076 : aT XDBUF PUSH OUT DATA 
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052777 000100 172066 BIS MTXINTE,@TXCSR ;TURN ON TRANSMITTER INT ENABLE 
005037 177776 $$ CLR PS ;LOWER PROCESOR STATUS 
PTT IIISEIIIITITICTITICTITITILLITTTTILiTiTTTiTiTiT iii ere TTT eTTeT TTT TTT tTttee 
105737 001342 TSTB MDMF .G sMODEM FLAG SET? 
001003 71$ :IF YES, BR 
js btteenenaRaaNTeseReeeeeenaneeneTnesennsetettnenTenaeeneonteNeenesesesenteeses 
012737 000040 007374 #32. ,73$ LOAD THE NUMBER 
004000 172042 71$: a #TIMER,@TXDBUF oe rie TIMER BIT 


004000 172032 72$: | acetal : CHECK The BIT 


BR iF CLEAR 
(PC)+ :DECREMENT THE NUMBER 
73$: 2 SOF TIMES TO REPEAT 
BNE 71$ :BR IF MORE TO GO 
4 ;FAILED TO INTERRUPT IN TIME 
6$: SCOPE SCOPE THIS TEST 


y INTERRUPT SERVICE ROUTINES 

*RECEIVER: 

11$: MOV @RXDBUF DATA =: GET_THE REGISTER AND DATA 
MPB TEMP2 .DATA SCHECK IT 


:BR IF OK 

& : COMPARISON ERROR 
TEMP2 COUNT UP EXPECTED 
TEMP2 con Ge TO SEE IF DONE 


7$ ;BR IF NO 

R5,SETVEC 7 YES=-RESET THE VECTORS 
RECEIVER 
; TRANSMITTER 

340,340 LEVEL 


7$: RTI 
; TRANSMITTER: 
171742 12$: MOVB TEMP1,@TXDBUF  ;LOAD THE TRANSMITTER BUFFER 
TEMP ;UP THE COUNT 
001236 | ata ZARE ue DONE 


:BR_IF NO 
171704 #21$,aDUPTVC SETUP FOR NEXT PART 
13$ my 


BR + 
171710 : #377 ,aTXDBUF OAD BUFFER 
171666 | «at SETUP NEXT PART 


13$ ; LEAVE 
#TEOM, aT XDBUF iSer E END OF MSG 


sDITT 0 
WSEND!TXINTE,@TXCSR ;TURN OFF TRANSMITTER 
#N0.B a es ;LOAD VECTOR 
#5$,(SP CRUNCH STACK 
RETURNS 


RTI : 

CRC CATCH INT SVC 

MOVB @RXDBUF ,DATA GET FIRST PART OF CRC 
it @RXCSR zWAIT FOR SECOND PART 


-4 T 
MOVB @RXDBUF ,LATA+1 GET THE REST OF THE CRC 
012716 606 MOV #15$, (SP) SETUP FOR RETURN 
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1707 007604 909092 RTI ; 
1 007606 012737 000340 177776 15$: MOV #340,PS SRAISE PS 
1709 007614 005137 010026 COM CALBCC S INVERT BCC 
1710 007620 023737 010026 001326 CMP CALBCC,DATA s COMPARE SOFTWARE AND HARDWARE BCC 
1711 007626 001401 BEQ +4 [BR IF OK 
le 007630 104004 HLT 4 [BCC COMPAPISON ERROR 
1713 007632 052777 000400 171560 BIS WMRESET,@TXCSR RESET THE DEVICE 
1774 007640 004737 004306 JSR PC, SMALL sWAIT FOR RESET TO FINISH 
1215 7644 000137 007402 JMP 6$ SLEAVE 
1717 
1718 007650 010046 SIMBCC: MOV RO,-(SP) 
1719 007652 010146 MOV R1,=(SP) 
1720 010246 MOV R2.-(SP) 
1721 007656 012537 001236 MOV (R5)+, TEMP1 
1722 007662 012537 001240 MOV (R5)+, TEMP2 
1723 007666 012537 001242 MOV (R5)+, TEMP3 
1724 007672 005037 010024 1$: CLR BCCFBK 
1725 007676 013700 001242 MOV TEMP3,RO 
1726 007702 006037 001240 ROR TEMP2 
1727 007706 005500 ADC RO 
1728 007710 032700 000001 BIT #B1T0.RO 
1729 007714 001402 BEQ 2$ 
1730 007716 005137 010024 COM BCCFBK 
1731 013700 010022 2$: MOV XPOLY,RO 
1732 007726 005100 COM RO 
1733 040037 010024 BIC RO,BCCFBK 
1734 000241 CLC 
1735 007736 37 001242 ROR 
1736 007742 013700 010024 MOV BCCFBK,RO 
1737 46 013 001242 MOV MP3,R1 
1738 007752 010102 MOV R1, 
1739 007754 040100 BIC R1,R 
1740 007756 043702 010024 BIC BCCFBK .R2 
1741 007762 050200 BIS R2,R 
1742 007764 043737 010022 001242 BIC XPOLY, TEMP3 
1743 007772 050037 001242 BIS RO, TEMP3 
1744 007776 005337 001236 DEC TEMP1 
1745 010002 001333 BNE 1$ 
1746 010004 013737 001242 010026 MOV TEMP3, CALBCC 
1747 010012 012602 MOV (SP) +-R2 

010014 012601 MOV (SP)+-R1 

010016 012600 MOV (SP)+-RO 

010020 000205 RTS R5 

010022 000000 XPOLY: 0 

010024 000000 BCCFBK: 0 

010026 000000 BCC: 

120001 CRC16=120001 
102010 CRC.CCITT=102010 


[*tkeeeeekanaeeeneraneneeee TEST 3 aeanannananeenerereneneneen 


2*THIS TEST PROVES THE DEVICE WILL HANDLE THE 
:*DDCMP PROTOCALL. SEND AND RECEIVE SYNCS, 
:*FOLLOWED BY DATA,BCC,DATA AND FINAL BCC. 


2 TARA AAAAEAARRARERAEAAAAAAAAEAERERARAEERERERR REAP Ree eRe Ree eee 


PESJIISI VAISS 
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-seeneaeeeenenae 


TEST 3 


4 
: 
° 
* 
sr eteneeneneen 

FURR AARAAARERERAERERARERERRERARARAAEEREERERERERERREREREERERERERERERE 
T 


S13: 


WISSSF 


3H325 TEST CONNECTOR ON? 
IF NO, BRF 


101$ 

wan esate iF VES, SET MAINTENANCE 
#340,P RAISE PROCESSOR STATUS 
R5, SETVEC SET UP VECTORS 

;BASED ON 


THE SE 
“ PARAME TERS 


TEMPS 
171266 gy ttf, @TXCSR it, THE DEVICE 
SR " T FOR RESET TO FINISH 
171252 1028 *DECMOD' 26 ,@PARC aR z;LOAD THE MODE AND SYNC CHARACTER 
171246 "BI #S/STST .@TXCSR sENTER SYSTEM TEST MODE 
Pitt iit ti tie iii i iii iii litlitie Titi teTiTerTiiTitTrrititiTTtTiTTT TTT 
theese CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED** 


J TARA AAAARARAAARAERAERAAAAEEAAAEEERAERAEERAEEAEARAERERERRAEREAREREREAEEAERERAEEREREEEEEREEE 


sMODEM CONNECTED? 


NO, 
:REPEAT C CTSDLY 
171226 = SET EXTERNAL MAINTENIANCE - 
LAY, 74$ [SET TIMER. 

#DTR'IRTS,@RXCSR :ENABLE MODEM. 

: MOV CTSDLY,R2 [WAIT FOR CTS 
171172 1048: #CTS, @RXCSR SCLEAR TO SEND UP? 
BNE 103$ ‘IF YES, 


STEP COUNT IF NO. 
: TRY AGAIN. 


Ly CTSDLY TO REPEAT 
:BR IF _NOT COMPLETE 
:CTS STILL NOT ACTIVE 
:D0 NOT CONTINUE TEST. 


SRR ERE E EEE RRREERRRRRRERRE ERE RRR EERE RE REAR REE R EERE EERE 


1038: 
ponte gyt law ge @RXCSR LOAD RCVEN! STPSYN 
#SEND ,@aTXCSR ; TURN ON TRANSMITTER 
wiSOm2e, e@TXDBUF “ jOUTPUT A SYNC CHAR 


;LOAD NUMBER 
#TIMER,@TXDBUF CHECK THE TIMER BIT 
66$ SET 


;BR_IF 
#TIMER,@TXDBUF ‘OR ir THE BIT 
67$ F CLEAR 


SEER RE ASSP L Ete eit SERED PIR 


SESee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0 00 00 00 Oo Co 00 00 Oo 
a od ot od do 
CONOUSWNO 
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SESSRERRES 
CONAUSWN—OO 


ae 


; 
010370 


010370 
010374 


010376 
010404 


00.00 00 
RAN 


105737 
001003 


012737 


00 00 00 Co 
VEG 


a sh ss os ss 
Co 
O% 


052777 
004737 
012706 
104400 


012777 


SoRaeoroee 


000411 
012777 
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(PC)+ 


66$ 
aTXCSR 
.+4 


68$: 
171076 


5 
#TSOM! 26 ,aTXDBUF 


aTXCSR 


69$ 
#TSOM! 26, 
#RINTEN, @RXCSR 
000100 ATXINTE ,@TXCSR 
177776 PS 
100$: 


@TXDBUF 


SEQ 0040 
SEQ 0039 


;DECREMENT THE NUMBER 
OF TIMES TO REPEAT 
:BR IF MORE TO GO 


sEXTERNAL CLOCKING STOPPED 


CHECK DONE 
BR IF NOT SET 


SEND SYNC 
TURN ON INTERRUPTS 
:DITTO 
;LOWER PROCESSOR STATUS 


Ste tin? mano... een han Me 


001342 TSTB 


BNE 


MDMF LG 
72$ 


:MODEM FLAG SET? 
:IF YES, BR 


cage "teen eas peocemaumaarey "9-7 Papert ine acaanamacn 


010426 
171010 


171000 


#100., 
ATIMER, 3 xpBuF 
72$ 


#TIMER,@TXDBUF 
73$ 
(PC)+ 


72$ 
5 


#MRESET ,@TXCSR 
PC, SMALL 
#STACK, SP 


000144 
004000 72$: 
73$: 


74$: 


1$: 
170756 


; INTERRUPT SERVICE ROUTINES 

; TRANSMITTER 
170740 
001236 
170710 
170714 
001236 
170656 


170662 
170640 


170644 
001240 
170606 
170612 


2$: #252 ,aTXDBUF 
#26,TEMP1 

#3$ ,QDUPTVC 
TEMP1 , @T XDBUF 
TEMP1 

#32, TEMP1 

#4$ ,ADUPTVC 
7$ 


#TEOM, aT XDBUF 
#5$ ,QDUPTVC 


TEMP2 ,@T XDBUF 
TEMP 

#100, TEMP2 
oo, a0UPTvC 
#TEOM, aT XDBUF 


3$: 


010532 


001000 
010550 
001240 
001240 
000100 
010602 
001000 


LOAD THE NUMBER 
a Tite TIMER BIT 
BR IF SET 


Pg By BIT 


EAR 
:DECREMENT THE NUMBER 
TIMES TO REPEAT 


‘BR IF MORE TO GO 

FAILED TO FINISH TEST 
RESET THE DEVICE 

sWAIT FOR RESET TO FINISH 


ZRESET THE STACK 
:SCOPE THIS TEST 


;LOAD FIRST DATA CHAR 
OAD DATA 
;RELOAD VECTOR 
7 LEAVE 
mov DATA TO BUFFER 
TE DATA 


:BR 
RELOAD VECTOR 
RETURN 


PUT OUT BCC 

SRELOAD VECTOR 

R TURN 

;LOAD DATA 

;UPDATE DATA 

;CHECK FOR FINISH 

‘BR IF MORE TO GO 

sRELOAD VECTOR 
URN 

“PUSH QUT DATA BCC 
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1875 010610 042777 000120 170602 BIC AMSEND! TXINTE ,@TXCSR SHUT DOWN TRANSMITTER 

1876 010616 012777 006360 170562 MOV #NO.BTRAP , aDUPT VC sRESET VECTOR 

1877 010624 C12716 010370 7$: MOV #100$, (SP) SETUP RETURN 

io 910630 000002 RTI RETURN 

\eet sRECEIVER 

1882 010632 017737 170554 001242 10$: MOV @RXCSR, TEMPS SAVE CSR 

1883 010640 017737 170550 001244 MOV @RXDBUF,TEMP4 ;SAVE BUFFER 

1884 010646 105737 001242 TSTB TEMPS ; CHECK FOR DONE 

1885 010652 100401 BMI 11$ :BR IF SET 

1886 010654 104005 HLT 5 FALSE INTERRUPT 

1887 010656 005737 001244 118: TST TEMP4 CHECK FOR ERROR 

1888 010662 100001 BPL 12$ BR IF NO ERROR 

1889 010664 104005 HLT 5 RECEIVER ERROR 

1890 010666 122737 000252 001244 12$: CMPB #252, TEMPS CHECK DATA 

1891 010674 001401 BEQ 13$ :BR_IF A MATCH 

1892 010676 104005 HLT 5 DATA COMPARE ERROR 

1893 010700 012737 000026 001246 13$: MOV #26, TEMPS ;LOAD NEXT EXPECTED 

1894 010706 012777 010716 170466 MOV #14$, aDUPRVC ;RELOAD VECTOR 

1895 010714 BR 26$ ; LEAVE 

1896 010716 017737 170472 001244 14%: MOV @RXDBUF TEMPS  ;GET DATA 

1897 010724 005737 001244 TST TEMPS CHECK FOR ERROR 

1898 010730 100001 BPL 15$ BR IF NO ERROR 

1899 010732 104005 HLT 5 DATA ERROR 

1900 010734 123737 001246 001244 15$: CMPB TEMPS , TEMP4 or DATA 

1901 010742 001401 BEQ 16$ ;BR_IF A MATCH 

1902 010744 104005 HLT 5 DATA COMPARE gees 

1903 010746 105237 001246 16$: INCB TEMPS ;UPDATE DAT 

1904 010752 122737 000032 001246 CMPB #32, TEMPS CHECK FOR FIRST PART FINISH 

1905 010760 001107 BNE 26$ ;BR_IF MORE TO GO 

1906 010762 012777 010772 170412 MOV #17$, aDUPRVC SET UP NEXT VECTOR 

1907 010770 000503 BR 26$ ; LEAVE 

1908 010772 017737 170416 001244 17$: MOV @RXDBUF,TEMP4  ;GET THE BUFFER 

1909 011000 005737 001244 TST TEMPS 7; TEST FOR ERROR 

1910 011004 100001 BPL +4 BR IF OK 

1917. 011006 104005 HLT 5 RECEIVER ERROR 

1912 011010 012777 011020 170364 MOV #18$,aDUPRVC sRELOAD THE VECTOR 

1913 011016 000470 BR 26$ s LEAVE 

1914 011020 017737 170370 001326 18$: MOV @RXDBUF ,DATA :GET DAT 

1915 011026 032737 010000 001326 BIT #CRCERR,DATA ie FOR CRC ERROR 

1916 011034 1 BNE 19$ :BR , 

1917 011036 104005 HLT 5 7CRC ERROR!!! 1 

1918 011040 012777 011054 170334 19$: MOV #20$, @DUPRVC :SET UP VECTOR 

1919 011046 005037 001332 CLR MIND :SETUP FOR NEXT DATA 

1920 011052 000452 BR 26$ LEAVE 

1921 011054 017737 170334 001244 20$: MOV @RXDBUF ,TEMP4 GET DATA 

1922 011062 005737 001244 TST TEMP4 CHECK FOR ERROR 

1923 011066 100001 BPL 21% :BR_ IF NO ERROR 

1924 011070 104005 HLT 5 RECEIVER ERROR 

1925 011072 123737 001332 001244 21$: CMPB MIND, TEMP4 CHECK DATA 

1926 011100 001401 BEQ 2e$ ;BR_IF A MATCH 

1927 011102 104005 HLT 5 ;DATA_ERROR 

1928 011104 105237 001332 22s: INCB MIND [UPDATE SOFTWARE DATA 

1929 011110 122737 000100 001332 CMPB #100,MIND ; CHECK FOR FINISH 

1930 011116 001039 BNE 26$ ;BR IF MORE TO GO 
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012777 011130 170254 #23$, aDUPRVC RELOAD FINAL VECTOR 
26$ ; LEAVE 


170260 001244 : @RXDBUF,TEMP4 GET DATA 
001244 TEMP4 ; CHECK FOR ERROR 
24$ BR IF OK 


5 RECEIVER ERROR ON FIRST OCTET 
:OF SECOND BCC 
170240 : @RXCSR TEST DONE 
24S ;BR_IF NOT SET 
170234 @RXDBUF ,DATA ;GET SECOND BCC OCTET 
010000 — 2 ag FOR BCC ERROR 


; IF OK 
5 ;BCC ERROR ON SECOND PART OF MSG 
010434 : #1$, (SP) $= $i TO FINISH TEST 
: SRETURN 


~~ Ss 
ee a td ot ed 
ee et at ot net 


MONMENA KFVCORO 


SRXNALINS EWAN 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee ee ee ee ee ee ee 
ee ee 
NeW oe 2 
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052777 <377>/UNEXPECTED INTERRUPT ON VECTOR ‘‘A’’ / 
377 <377>/UNEXPECTED INTERRUPT ON VECTOR ‘B’’ / 
<377>/ERROR WHEN USING MODEM LEADS / 
<377>/ERROR IN SDLC / 
<377>/ERROR IN DECMODE / 
<377>/RUN DIAGNOSTICS / 
<377>/CLEAR TO SEND NOT ACTIVE/ 
<377>/CLEAR TO SEND STILL NOT ACTIVE=TEST ABORTED/ 


RERGGSRR 
RRNAANNO 


AAWVUIMUIN 
MOAKNMOCO 


011373 
011416 
000000 
011440 
000000 
000000 
011472 
000000 
000000 


000001 


kk kd td ag dd de 
NOON NNN iN i eS SS SS See wa 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
94 


; 
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CZDPEB.P11 
ADRCNT= 003315 
ALJMFL 001344 
BCCFBK 010024 
BINWRD 003620 
BITwW = 002 
BITO = 1 
BIT] = 2 
BIT10 = 002000 
BIT11 = 000 
BITi2 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 000400 
BIT9 = 001000 
002666 
BRX 002670 
CALBCC 010026 
CARDET= 01 


DUPNUM 
DUPRPS 001404 


19-JAN=79 
16:07 

996* 1032s 

6334 766s 
1724" 1730s 
1056* 1057 

597# 

460" 579 

459% ‘578 

450" 569 

449" 568 

4484 567 

447# 566 

446# 565 

4454 564 

4584 577 

4574 576 

456# © 575 

455@ 57% 

4544 573 

4534 572 

452" = 571 

4514 570 

860 936" 

861 9378 
1593" 1594 

S67# 1546 
1054" 1058 

5944 

7034 1400 

6724 = 877 

670# 842 
19484 1949 

589# 

5834 ©1915 
1592, 1755# 
1754# 

5664 = 1546 

5544 1619 

862895 

6264 1672s 
1156* 1159 
1155* 1177 

5884 1787 

555#@ = 1617 

994* 1029 

504# 750 

4924 © 750 

5644 

579m 

6344 820 

5748 

570# 1546 

$784 ©1532 

5564 738 

7134 772 

557# 7368 

682" 1390s 
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10414 
790* 8 

1733* 1736 
10944 

1728 

584 597 
596 616 
583 90 
594 614 
582 593 
581 588 
854 

603 

602 

601 

600 

586 599 
585 589 
1709* 1710 


1074* 10924 


879 881 
1183 

1941 

1620 1800 
1799 

896 13624 
1673 1702* 
1181 11844 
11804 

1797 

10394 

874* 

1520 

1546 1618 
823* 830* 
824 

821* 885 
1391" 1392 


619 
598 


1746* 
1053 


883 


1705* 


1798 
136¢ 


1472* 


E 4 


914 


612 


618 


17534 


1167 1169 


1710 1914* 


1915 


1940* 


1941 


SEQ 0044 
SEQ 0043 
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SWRI K ES NWINID 
SUMWN SoS NUS 
A—MNOAWWEN 


19=JAN=79 


F 4 
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1369x 1390 1470* 1894*  1906* 
* 

1394% 1395* 1473* 

780 

1392e 1393" 1394 

763 

761 829 839 


19=JAN=79 
6:07 


902 1 ® 
1358 1912* 1918* 1931 


1471* 1698* 1857* 1863*  1866* 


1367 


1689* 1692s 


1194s 
928* 1144* 1171* 


13494 


799 


1143s 


1170 12274 1406 1423 


787 837* 1613 1655 1793 1834 


1872* 


SEQ 0045 


SEQ 0044 


1876* 
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1785 1847 


1584* 1771s 


1452 


1021 1023 1025 
905 


1652* 1708* 1775* 1831* 








CZDPE 


MACY11 


CIDPEB. P11 


RCVEN = 
RECACT= 
REOM = 
REPEAT 


RESREG 
RESTRT 


SWREG 
Sw00 


000020 
004000 
001000 
001310 


004174 
002476 


= 104407 


001214 
040000 
G00 100 
000400 
000004 
001412 
001414 


000176 
= 000001 


30A(1052) 19=JAN-79 16:09 PA 
19=JAN=79 16:07 
es 1630 1871 
5854 
5534 1615 1795 
1182 11854 
887 8954 
1185 
5184 742* 862* 
5654 1546 
S734 §©1631 1829 
5864 
577# = §=6.1532 1546 
6854 899 1368* 
1811* 1829% 1882 
1374 1375« 
1921 1933 1940 
5814 
5724 
5584 737* 822s 
5424 1042" 1205 
5514 
5354 1042* 
5444 
5364 1042* 
5454 
5374 § 1042* 
5464 
5384 1042* 
5474 
5394 1042* 
5484 
5404 1042* 
5494 
5414 
5504 
6664 1145 
6544 1565 1667 
6564 
6024 1634 1697 
6744 785 795 
14704 1606 1679 
6274 
596 17184 
12114 1529 1586 
1055* 1076 1079* 
5694 1508 1546 
6314 816 1515 
4314 731 851 
57 1508 1532 
63 812 1509 
5714 1811 
10424 
505 747 749 
1197 1404 
4934 749 
4124 


GE 49 
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B95* 


1798 
1527s 
1377 


1875 
807 


1786 


1220 


854 


H 4 


932 


1530 
1378 


811 


1848 


1849 


914 


935 


1678* 
1672 


815 


921 


1199* 


1620 
1702 


819 


938 


1201 1224 1422* 


1630* 1637* 1703 
1705 1883 1896 


944 1134 1139 


SEC 0047 
SEQ 0046 
14328 1433 
1798* 1800 
1908 1914 
1188 1195 


es 


I 4 
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1404 


1772 


1686* 1687 1721* 
1781* 1868 1869* 
1884 


1882* 
1900 1908* 1909 


1815 18°77 1838 


ts os 
MSONUISES BRUIAW UU SS 
g S 


— — od 


001000 
001420 6884 83 1648 


1650* 
1855* 
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6534 
659 


011630 000 


ERRORS DETECTED: 0 


1127 
9414 


J 4 
16:09 PAGE 51 
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1161 1162 1165 1166 1168 
1429 


10914 
11394 


17724 
15854 


7 
19484 


DSKZ : CZDPEB,DSKZ: CZDPEB. SEQ=DSKZ:CZDPEB.MAC ,DSKZ:CZDPEB.P11 
RUN-TIME: 5 7 , CONDS 


OND 
RUN-TIME RATIO: 29/13=2.2 
CORE USED: 17K (33 PAGES) 


1179 


1222 


1364 


6744 
5584 
13514 


SEQ 0049 
SEQ 0048 


1406 


6764 
5594 
1366 
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DOCUMENT PAGES: 49 





